home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zc.d64 / proc.extd'graph < prev    next >
Text File  |  2007-03-01  |  2KB  |  99 lines
  1. 0010 
  2. 0020 ╨╥╧├ EXTENDED'BACKGROUND(X) ├╠╧╙┼─
  3. 0030   REG:=53265
  4. 0040   P#:=╨┼┼╦(REG)
  5. 0050   ╔╞ X ╘╚┼╬
  6. 0060     ╨╧╦┼ REG,P# ┬╔╘╧╥ 64
  7. 0070   ┼╠╙┼ 
  8. 0080     ╨╧╦┼ REG,P# ┬╔╘┴╬─ 191
  9. 0090   ┼╬─╔╞ 
  10. 0100 ┼╬─╨╥╧├ EXTENDED'BACKGROUND
  11. 0110 
  12. 0120 ╨╥╧├ MULTICOLOR'CHAR(X) ├╠╧╙┼─
  13. 0130   REG:=53270
  14. 0140   P#:=╨┼┼╦(REG)
  15. 0150   ╔╞ X ╘╚┼╬
  16. 0160     ╨╧╦┼ REG,P# ┬╔╘╧╥ 16
  17. 0170   ┼╠╙┼ 
  18. 0180     ╨╧╦┼ REG,P# ┬╔╘┴╬─ 239
  19. 0190   ┼╬─╔╞ 
  20. 0200 ┼╬─╨╥╧├ MULTICOLOR'CHAR
  21. 0210 
  22. 0220 ╨╥╧├ NORMAL'COLUMNS(X) ├╠╧╙┼─
  23. 0230   REG:=53270
  24. 0240   P#:=╨┼┼╦(REG)
  25. 0250   ╔╞ X ╘╚┼╬
  26. 0260     ╨╧╦┼ REG,P# ┬╔╘╧╥ 8
  27. 0270   ┼╠╙┼ 
  28. 0280     ╨╧╦┼ REG,P# ┬╔╘┴╬─ 247
  29. 0290   ┼╬─╔╞ 
  30. 0300 ┼╬─╨╥╧├ NORMAL'COLUMNS
  31. 0310 
  32. 0320 ╨╥╧├ NORMAL'ROWS(X) ├╠╧╙┼─
  33. 0330   REG:=53265
  34. 0340   P#:=╨┼┼╦(REG)
  35. 0350   ╔╞ X ╘╚┼╬
  36. 0360     ╨╧╦┼ REG,P# ┬╔╘╧╥ 8
  37. 0370   ┼╠╙┼ 
  38. 0380     ╨╧╦┼ REG,P# ┬╔╘┴╬─ 247
  39. 0390   ┼╬─╔╞ 
  40. 0400 ┼╬─╨╥╧├ NORMAL'ROWS
  41. 0410 
  42. 0420 ╨╥╧├ SMOOTHX(X) ├╠╧╙┼─
  43. 0430   ╔╞ X>=0 ┴╬─ X<=7 ╘╚┼╬
  44. 0440     REG:=53270
  45. 0450     P#:=╨┼┼╦(REG)
  46. 0460     ╨╧╦┼ REG,(P# ┬╔╘┴╬─ 248)+X
  47. 0470   ┼╠╙┼ 
  48. 0480     ╥┼╨╧╥╘ 5
  49. 0490   ┼╬─╔╞ 
  50. 0500 ┼╬─╨╥╧├ SMOOTHX
  51. 0510 
  52. 0520 ╨╥╧├ SMOOTHY(Y) ├╠╧╙┼─
  53. 0530   ╔╞ Y>=0 ┴╬─ Y<=7 ╘╚┼╬
  54. 0540     REG:=53265
  55. 0550     P#:=╨┼┼╦(REG)
  56. 0560     ╨╧╦┼ REG,(P# ┬╔╘┴╬─ 248)+Y
  57. 0570   ┼╠╙┼ 
  58. 0580     ╥┼╨╧╥╘ 5
  59. 0590   ┼╬─╔╞ 
  60. 0600 ┼╬─╨╥╧├ SMOOTHY
  61. 0610 
  62. 0620 ╨╥╧├ BGCOLORS(X,Y,Z) ├╠╧╙┼─
  63. 0630   ╔╞ X>=0 ┴╬─ X<=15 ╘╚┼╬
  64. 0640     ╨╧╦┼ 53282,X
  65. 0650   ┼╠╔╞ X=-1 ╘╚┼╬
  66. 0660   ┼╠╙┼ 
  67. 0670     ╥┼╨╧╥╘ 5
  68. 0680   ┼╬─╔╞ 
  69. 0690   ╔╞ Y>=0 ┴╬─ Y<=15 ╘╚┼╬
  70. 0700     ╨╧╦┼ 53283,Y
  71. 0710   ┼╠╔╞ Y=-1 ╘╚┼╬
  72. 0720   ┼╠╙┼ 
  73. 0730     ╥┼╨╧╥╘ 5
  74. 0740   ┼╬─╔╞ 
  75. 0750   ╔╞ Z>=0 ┴╬─ Z<=15 ╘╚┼╬
  76. 0760     ╨╧╦┼ 53284,Z
  77. 0770   ┼╠╔╞ Z=-1 ╘╚┼╬
  78. 0780   ┼╠╙┼ 
  79. 0790     ╥┼╨╧╥╘ 5
  80. 0800   ┼╬─╔╞ 
  81. 0810 ┼╬─╨╥╧├ BGCOLORS
  82. 0820 
  83. 0830 ╨╥╧├ HIDESCREEN ├╠╧╙┼─
  84. 0840   REG:=53265
  85. 0850   P#:=╨┼┼╦(REG)
  86. 0860   ╨╧╦┼ REG,P# ┬╔╘┴╬─ 239
  87. 0870 ┼╬─╨╥╧├ HIDESCREEN
  88. 0880 
  89. 0890 ╨╥╧├ SHOWSCREEN 
  90. 0900   REG:=53265
  91. 0910   P#:=╨┼┼╦(REG)
  92. 0920   ╨╧╦┼ REG,P# ┬╔╘╧╥ 16
  93. 0930 ┼╬─╨╥╧├ SHOWSCREEN
  94. 0940 
  95. 0950 ╞╒╬├ RASTER ├╠╧╙┼─
  96. 0960   MSB:=╨┼┼╦(53265) ┬╔╘┴╬─ 128
  97. 0970   ╥┼╘╒╥╬ ╨┼┼╦(53266)+MSB*2
  98. 0980 ┼╬─╞╒╬├ RASTER
  99.